*input tmp.
 (tmp. 1
! + 24.6949
! Missing = sign, command flushed.
p.1,l.1 new aa; aa=66; 28-(sqrt(77*77-aa*aa))/12;
                                                  
↑s
! + 23.5093
! Missing = sign, command flushed.
p.1,l.2 new aa; aa=55; 28-(sqrt(77*77-aa*aa))/12;
                                                  

! + 22.7342
! Missing = sign, command flushed.
p.1,l.3 new aa; aa=44; 28-(sqrt(77*77-aa*aa))/12;
                                                  

! + 22.2025
! Missing = sign, command flushed.
p.1,l.4 new aa; aa=33; 28-(sqrt(77*77-aa*aa))/12;
                                                  

! + 21.8508
! Missing = sign, command flushed.
p.1,l.5 new aa; aa=22; 28-(sqrt(77*77-aa*aa))/12;
                                                  

! + 21.6491
! Missing = sign, command flushed.
p.1,l.6 new aa; aa=11; 28-(sqrt(77*77-aa*aa))/12;
                                                  

! + 21.5833
! Missing = sign, command flushed.
p.1,l.7 new aa; aa=00; 28-(sqrt(77*77-aa*aa))/12;
                                                  
)
*end